Imports DAO
Imports DTO

Public Class RangBuocLopHocBus
    Inherits AbstractBus
    Public Sub Them(ByVal rblhDto As RangBuocLopHocDto)
        Dim rblhDao As New RangBuocLopHocDao()
        rblhDao.Them(rblhDto)
    End Sub
    Public Sub Xoa(ByVal maRBLH As String)
        'Kiem tra Business Rule neu co
        Dim rblhDao As New RangBuocLopHocDao()
        rblhDao.Xoa(maRBLH)
    End Sub
    Public Sub Sua(ByVal rblhDto As RangBuocLopHocDto)
        'Kiem tra Business Rule neu co
        Dim rblhDao As New RangBuocLopHocDao()
        rblhDao.Sua(rblhDto)
    End Sub
    'Tim Kiem
    Public Function TimKiemtheoma(ByVal maRBLH As String) As RangBuocLopHocDto

        'Kiem tra Business Rule neu co
        Dim rblhDto As RangBuocLopHocDto

        Dim rblhDao As New RangBuocLopHocDao()
        rblhDto = rblhDao.TimKiemtheoma(maRBLH)
        Return rblhDto

    End Function
    Public Function LayBang() As DataTable
        'Kiem tra Business Rule neu co
        Dim dt As DataTable
        Dim rblhDao As New RangBuocLopHocDao

        dt = rblhDao.LayBang()
        Return dt
    End Function

    'Cap Nhat Bang
    Public Sub CapNhatBang(ByVal dt As DataTable)
        'Kiem tra Business Rule neu co
        Dim rblhDao As New RangBuocLopHocDao()
        rblhDao.CapNhatBang(dt)
    End Sub


End Class
